home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side B).zip / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side B).po / PROGRAMS / GREETINGS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  51 lines
  1. 10 MO$ =  CHR$(27) + CHR$(15):MF$ =  CHR$(24) + CHR$(14):CH$ = MO$ +"D" +MF$ +" "
  2. 20  TEXT : PRINT  CHR$(4)"PR#3": PRINT : HOME 
  3. 30  PRINT  TAB( 30)"Welcome to PROSEL."
  4. 40  PRINT  TAB( 30)MO$"LLLLLLLLLLLLLLLLLL"MF$
  5. 50  PRINT  TAB( 5)MO$"[[["MF$" The best and most complete set of disk utilities you can buy. "MO$"[[["MF$
  6. 60  PRINT MO$;: FOR I = 1 TO 11: PRINT "SSSSSSS";: NEXT I: PRINT MF$
  7. 70  PRINT : PRINT "The PROSEL package contains, among many others, the following major programs:": PRINT 
  8. 80  PRINT CH$"PROSEL - The fastest, most versatile PROgram SELector available."
  9. 90  PRINT CH$"CAT.DOCTOR - the premier filer."
  10. 100  PRINT CH$"BEACH.COMBER - the only disk optimizer for the Apple // series."
  11. 110  PRINT CH$"MR.FIXIT - extensive disk repair facilities."
  12. 120  PRINT CH$"BACKUP & RESTORE - the fastest hard disk & ram disk backup/restore programs."
  13. 130  PRINT CH$"BLOCK.WARDEN - an easy to use, extremely versatile disk block editor."
  14. 140  PRINT CH$"COPY - a versatile volume copier, which can use all available memory."
  15. 150  PRINT CH$"INFO.DESK - tree-structure cataloger with several modes."
  16. 160  PRINT CH$"FILE.FINDER - file locator, an indispensible tool on hard disks."
  17. 170  PRINT CH$"QUEUEP - automatic program sequencer with both absolute and relative timing."
  18. 180  PRINT CH$"CACHE - a ram caching program which can cache hard disks and 3.5" CHR$(34)" disks."
  19. 182  VTAB 20: HTAB 8
  20. 184  PRINT "***  A NOTE BY THE A.C.E.S. LIBRARIAN ....."
  21. 186  HTAB 13: PRINT "Only the ProSel program is included on this library disk. 
  22. 190  POKE 34,4
  23. 200  GOSUB 1000
  24. 210  PRINT  TAB( 30)"Copyright 1987  by": PRINT 
  25. 220  PRINT  TAB( 32)"Glen E. Bredon"
  26. 230  PRINT  TAB( 32)"521 State Road"
  27. 240  PRINT  TAB( 29)"Princeton, NJ  08540": PRINT 
  28. 250  PRINT  TAB( 32)"(609) 924-5976": PRINT 
  29. 260  PRINT  TAB( 29)"All rights reserved."
  30. 270  VTAB 15: PRINT " ";: FOR I = 1 TO 11: PRINT "_______";: NEXT I: PRINT 
  31. 280  FOR I = 1 TO 7: PRINT MO$"Z"MF$;: POKE 36,78: PRINT MO$"_"MF$: NEXT I
  32. 290  PRINT " "MO$;: FOR I = 1 TO 11: PRINT "LLLLLLL";: NEXT I: PRINT MF$
  33. 300  VTAB 18: HTAB 6: PRINT "Written permission was obtained from the author to use ProSel on this"
  34. 310  HTAB 6: PRINT "disk. -- The full package may be ordered directly from Glen Bredon"
  35. 320  HTAB 6: PRINT "at the above address for $40 postpaid in US and Canada."
  36. 350  GOSUB 1000
  37. 560  VTAB 8
  38. 570  PRINT : PRINT "Please press a number key to select an option:": PRINT 
  39. 580  PRINT "0 - Exit to Applesoft BASIC."
  40. 610  PRINT "1 - Return to start of this program."
  41. 620  PRINT "2 - Quit to PROSEL."
  42. 630  PRINT : PRINT "Select 0-2:";
  43. 640  GET K$: IF K$ <"0"  OR K$ >"2"  THEN 640
  44. 650  PRINT K$;: POKE 34,7: HOME 
  45. 660  ON  VAL(K$) GOTO 10,710
  46. 670  TEXT : PRINT : HOME : PRINT  CHR$( ASC("U") -64): HOME 
  47. 680  NEW : END 
  48. 710  PRINT  CHR$(4)"BYE"
  49. 720  STOP 
  50. 1000  VTAB 24: PRINT  TAB( 32)"Press a key. ";
  51. 1010  GET K$: PRINT : PRINT  CHR$(12): RETURN